100 REM TRASMART SOFTWARE
101 REM VCR LIBRARY
102 GOSUB448:GOTO161
103 :
104 S=54272:POKES+1,112:POKES+5,10:POKES+6,9:POKES+24,15:POKES+4,17:POKES+4,16
105 RETURN
106 :
107 L=LEN(K$):M=38-L/2:FORI=1TOLEN(K$)-19
108 PRINTL$SPC(M)LEFT$(K$,I)RIGHT$(K$,L-(L-I)):M=M-1:NEXT:RETURN
109 :
110 SYS49152
111 PRINT"[147]     [158]Q TO QUIT  [158]P TO PAUSE / RESUME"
112 OPEN8,8,0,"$0:*=R"
113 GET#8,A$,B$:N$=CHR$(0)
114 GET#8,A$,B$:IFB$=""THEN123
115 GET#8,A$,B$:A=ASC(A$+N$):B=ASC(B$+N$)
116 C$=MID$(STR$(A+256*B),2)+CHR$(32)
117 PRINT"       ";
118 PRINTC$;:GET#8,C$:IFC$<>""THEN118
119 PRINT:GETK$:IFK$="P"ORK$="Q"THEN121
120 GETK$
121 IFK$="P"THENWAIT197,1:GOTO120
122 IFK$<>"Q"THEN114
123 CLOSE8
124 PRINT"[156]PRESS SPACE TO CONTINUE[146]"
125 S=54272:POKES+1,112:POKES+5,10:POKES+6,9:POKES+24,15:POKES+4,17:POKES+4,16
126 IFPEEK(203)<>60THEN126
127 GOTO177
128 :
129 POKE198,0:Y$="":Z$=""
130 PRINT"[156]_[157][146]";
131 FORN=1TO75 :GETZ$:IFZ$<>""THEN137
132 NEXT
133 PRINT"_[157]";
134 FORN=1TO75 :GETZ$:IFZ$<>""THEN137
135 NEXT
136 GETZ$:IFZ$=""THEN130
137 L=LEN(Y$)
138 IFZ$=CHR$(13)ANDRE=1THENPRINT"[156][157] ":RETURN
139 IFZ$=CHR$(13)THENPRINT"[157] ":RETURN
140 IFZ$=CHR$(20)ANDLANDRE=1THENPRINT"[156] [157][157]";:Y$=LEFT$(Y$,L-1):GOTO130
141 IFZ$=CHR$(20)ANDLTHENPRINT" [157][157]";:Y$=LEFT$(Y$,L-1):GOTO130
142 IFHL=2ORHL=19THENIF(Z$<"A"ORZ$>"Z")ANDZ$<>" "AND(Z$<"0"ORZ$>"9")THEN130
143 IFHL=1ORHL=3ORHL=4THENIF(Z$<"0"ORZ$>"9")ANDZ$<>" "THEN130
144 IFL>=HLTHEN130
145 IFRE=1THENPRINT"[156]";Z$;:Y$=Y$+Z$:GOTO130
146 PRINTZ$;:Y$=Y$+Z$
147 GOTO130
148 :
149 INPUT#15,E,E$,A,B
150 IFE=0ORE=73THENRETURN
151 IFE=50THENRETURN
152 PRINT"THERE IS AN I/O PROBLEM"
153 PRINT"ERROR # IS";E;" ";E$
154 PRINT"TRACK";A;"; SECTOR";B
155 CLOSE8:CLOSE15
156 PRINT"[156]PRESS SPACE TO CONTINUE[146][145][145]";
157 IFPEEK(203)=64THEN157
158 IFPEEK(203)<>60THEN157
159 GOTO177
160 CLOSE8:CLOSE15:END
161 :
162 H=0
163 SP$="                                       "
164 OPEN15,8,15,"I0":CLOSE15
165 F$="VCR LIBRARY.ML":POKE147,0:SYS57812F$,8,1:SYS62631
166 LL$=CHR$(13)
167 LN=40
168 OPEN15,8,15
169 GOSUB148
170 CLOSE8:CLOSE15
171 K$="[152][221]        INSTRUCTIONS (Y/N)        [221]":L$=L$+"":GOSUB107
172 POKE198,0
173 IFPEEK(203)=64THEN173
174 IFPEEK(203)=39THEN177
175 IFPEEK(203)=25THENIS=1:GOSUB362:GOTO177
176 GOTO172
177 SYS49152
178 PRINT"[147][156][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
179 PRINT"[221] R[156]EAD A TAPE";
180 PRINT"  W[156]RITE A TAPE";
181 PRINT"  E[156]DIT TAPE [221]";
182 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
183 PRINT"[221] P[156]RINT LABEL";
184 PRINT"  C[156]REATE FILE";
185 PRINT"   D[156]IRECTORY [221]";
186 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
187 PRINT"[221] H[156]ELP SCREEN";
188 PRINT"  S[156]EE ALL FILES";
189 PRINT" L[156]OADSTAR  [221]";
190 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
191 POKE198,0
192 GETA$:IFA$=""ORA$=" "THEN192
193 GOSUB104
194 IFA$=CHR$(80)ORA$=CHR$(87)ORA$=CHR$(82)THEN201
195 IFA$=CHR$(67)ORA$=CHR$(69)THEN201
196 IFA$=CHR$(76)THEN325:REM L
197 IFA$=CHR$(68)THEN109:REM D
198 IFA$=CHR$(83)THEN398:REM S
199 IFA$=CHR$(72)THENH=1:GOTO362:REM H
200 GOTO177
201 PRINT"[145][156][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]"
202 PRINT"[145][156][221]WHAT TAPE NUMBER TO                   [221][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
203 PRINT"[156][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]"
204 PRINT"[145][145][145]"SPC(21);
205 IFA$=CHR$(80)THENPRINT"PRINT ";
206 IFA$=CHR$(87)THENPRINT"WRITE ";
207 IFA$=CHR$(82)THENPRINT"READ ";
208 IFA$=CHR$(67)THENPRINT"CREATE ";
209 IFA$=CHR$(69)THENPRINT"EDIT ";
210 IFA$<CHR$(65)ORA$>CHR$(90)THEN178
211 RE=1:HL=3:GOSUB129:V$=Y$:RE=0
212 GOSUB104
213 IFVAL(V$)<1THENPRINT"FILE # MUST BE GREATER THAN 0"
214 IFVAL(V$)>200THENPRINT"FILE # MUST BE LESS THAN 200"
215 IFVAL(V$)<1ORVAL(V$)>200THENPRINT"[156]PRESS SPACE TO CONTINUE[146]"
216 IFVAL(V$)<1ORVAL(V$)>200THENWAIT197,4:A$="":GOTO177
217 VW=0
218 IFA$=CHR$(80)THEN332:REM P
219 IFA$=CHR$(82)THEN225:REM R
220 IFA$=CHR$(87)THEN255:REM W
221 IFA$=CHR$(67)THEN277:REM C
222 IFA$=CHR$(69)THEN294:REM E
223 GOTO177
224 :
225 :
226 OPEN15,8,15
227 GOSUB148
228 PRINT#15,"R0:"+V$+"="+V$:INPUT#15,ER
229 IF ER<>63 THEN PRINTSPC(13)"FILE IS EMPTY [156]":RN=8:GOTO246
230 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
231 GOSUB148
232 RN=1
233 REM RETURN HERE FOR LINE 2 - 7
234 GOSUB331
235 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
236 GOSUB148
237 INPUT#8,AA$,BB$,CC$,DD$,EE$
238 GOSUB148
239 IFAA$="[255]"ANDRN=1THENPRINTSPC(13)"FILE IS EMPTY [156]":RN=8:GOTO246
240 IFAA$="[255]"THENRN=8:GOTO246
241 IFCC$=""THENCC$="      DELETED[152]"
242 IFRN=1THENPRINT"[156][221]       TAPE NUMBER ";V$;" CONTAINS "
243 IFRN=1THENPRINT"[156][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
244 IFRN=1THENPRINT"     TITLE                TIME   START   [152]"
245 PRINTAA$+". "TAB(3)CC$TAB(27)BB$TAB(34)DD$TAB(33)EE$
246 IFRN>=8ANDVW=1THENCLOSE8:CLOSE15:RETURN
247 IFRN>=8THENPRINT"[156]PRESS SPACE TO CONTINUE[146]"
248 IFRN>=8THENCLOSE8:CLOSE15
249 IFRN>=8THENGOSUB104
250 IFRN>=8THENIFPEEK(203)<>60THEN250
251 IFRN>=8THEN254
252 RN=RN+1
253 GOTO233
254 GOTO177
255 :
256 OPEN15,8,15
257 GOSUB148
258 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
259 GOSUB148
260 PRINT"READY TO WRITE TAPE #";V$
261 PRINT"LINE# (1  CHR MAX) ";:HL=1:GOSUB129:AA$=Y$
262 IFAA$=""THENPRINT"CANCELLED":FORPA=1TO800:NEXTPA:GOTO275
263 RN=VAL(AA$)
264 IFRN>=8THENCLOSE8:CLOSE15:GOTO177
265 PRINT"TIME  (4  CHR MAX) ";:HL=4:GOSUB129:BB$=Y$
266 PRINT"TITLE (21 CHR MAX) ";:HL=21:GOSUB129:CC$=Y$
267 PRINT"START (4  CHR MAX) ";:HL=4:GOSUB129:DD$=Y$
268 RC$=AA$+LL$+BB$+LL$+CC$+LL$+DD$+LL$+EE$
269 GOSUB331
270 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
271 GOSUB148
272 IF E=50 THENPRINT"THE DOS WILL EXPAND THE FILE NOW"
273 PRINT#8,RC$
274 GOSUB148
275 CLOSE8:CLOSE15:GOTO177
276 :
277 :
278 PRINT""
279 PRINT"SETTING UP FILE...WAIT ONE MOMENT"
280 OPEN15,8,15,"UI"
281 GOSUB148
282 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
283 GOSUB148
284 PRINT""
285 RN=7
286 GOSUB331
287 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
288 GOSUB148
289 IF E<>50THENPRINT"FILE "V$" EXISTS"
290 IF E=50 THENPRINT"WRITING BLANK FILE TO DISK NOW"
291 PRINT#8,CHR$(255)
292 GOSUB148
293 CLOSE8:CLOSE15:GOTO177
294 :
295 VW=1:GOSUB225:VW=0
296 OPEN15,8,15
297 GOSUB148
298 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
299 GOSUB148
300 PRINT"READY TO EDIT TAPE #";V$
301 GOSUB104
302 PRINT"LINE# (1  CHR MAX) ";:HL=1:GOSUB129:AA$=Y$
303 IFAA$=""THENPRINT"CANCELLED":FORPA=1TO999:NEXTPA:GOTO315
304 RN=VAL(AA$)
305 IFRN>=8THENCLOSE8:CLOSE15:GOTO177
306 PRINT"TIME (4  CHR MAX) ";:HL=4:GOSUB129:BB$=Y$
307 PRINT"TITLE (21 CHR MAX) ";:HL=21:GOSUB129:CC$=Y$
308 PRINT"START (4  CHR MAX) ";:HL=4:GOSUB129:DD$=Y$
309 RC$=AA$+LL$+BB$+LL$+CC$+LL$+DD$+LL$+EE$
310 GOSUB331
311 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
312 GOSUB148
313 PRINT#8,RC$
314 GOSUB148
315 PRINT""
316 FORZ=1TO14:PRINTSP$:NEXTZ
317 PRINTSP$;
318 PRINT""
319 CLOSE8:CLOSE15:VW=1:GOSUB225:VW=0
320 PRINT"[156]PRESS SPACE TO CONTINUE[146]"
321 GOSUB104
322 IFPEEK(203)<>60THEN322
323 GOTO177
324 :
325 CLOSE3:CLOSE8:CLOSE15
326 :
327 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
328 IFER%<>63THENPRINT"[147]LOADSTAR NOT AVAILABLE":END
329 LOAD"HELLO CONNECT",8
330 END
331 RH=INT(RN/256):RL=RN-(256*RH):RETURN
332 :
333 OPEN3,4,0:CLOSE3
334 IFST<>0THENPRINT"PRINTER NOT DETECTED":GOTO320
335 OPEN15,8,15
336 GOSUB148
337 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
338 GOSUB148
339 OPEN3,4
340 RN=1
341 REM RETURN HERE FOR LINE 2 & UP
342 GOSUB331
343 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
344 GOSUB148
345 INPUT#8,AA$,BB$,CC$,DD$,EE$:SQ$="                                       "
346 CC$=LEFT$(CC$+SQ$,20):DD$=RIGHT$(SP$+DD$,4):EE$=RIGHT$(SP$+EE$,4)
347 GOSUB148
348 IFRN=1THENPRINT#3,"*************************************"
349 IFLEN(BB$)=1THENBB$=BB$+" "
350 IFBB$=""THEN GOTO355
351 IFAA$="[255]"THENRN=8:GOTO355
352 IFRN=1THENPRINT#3,SPC(10);"TAPE NUMBER ";V$
353 IFRN=1THENPRINT#3,SPC(5);"TITLE";SPC(14);"TIME";SPC(3);"START"
354 PRINT#3,AA$;" ";CC$;"   ";BB$;"    ";DD$
355 RN=RN+1
356 IFRN>=8THENPRINT#3,"*************************************"
357 IFRN>=8THENPRINT"FILE "V$" HAS BEEN PRINTED":CLOSE8:CLOSE15:CLOSE3
358 IFRN>=8THENFORPA=1TO999:NEXTPA:GOTO360
359 GOTO341
360 GOTO177
361 :
362 PRINT"[147][156]VIDEO CASSETTE LIBRARY"
363 PRINT"[156]ENTER FIRST LETTER OF OPTION"
364 PRINT"THIS PROGRAM HAS A MAXIMUM CAPACITY OF  200 TAPES WITH 7 LINES ";
365 PRINT"OF INFORMATION   PER TAPE. (7 ENTRIES PER TAPE)."
366 PRINT"[159]READ A TAPE: READ TAPE (X)."
367 PRINT"[159]WRITE A TAPE: WRITE TAPE (X) LINE (Y)."
368 PRINT"HIT RETURN ALONE AT LINE # TO CANCEL."
369 PRINT"[159]CREATE FILE: YOU MUST CREATE FILE (X)   BEFORE WRITING TO IT. ";
370 PRINT"IT WILL NOT ERASE AN EXISTING FILE."
371 PRINT"[159]EDIT A TAPE: USE TO UPDATE OR DELETE    LINE (Y) ON TAPE (X). ";
372 PRINT"HIT RETURN ALONE  AT LINE # TO CANCEL OR ENTER LINE # THENHIT ";
373 PRINT"RETURN ALONE FOR TITLE, TIME   AND START COUNTS TO DELETE THAT LINE."
374 PRINT"[156]PRESS SPACE TO CONTINUE[146]"
375 GOSUB104
376 IFPEEK(203)<>60THEN376
377 PRINT"[147][159]DIRECTORY: VIEW DISK DIRECTORY"
378 PRINT"[159]HELP SCREEN: THESE TWO SCREENS"
379 PRINT"[159]SEE ALL FILES: VIEW ALL RECORDS ON DISK"
380 PRINT"VCR COMPANION WILL ALLOW ALPHABETIC"
381 PRINT"COMPOSITE VIEW OF ALL DISKS.           "
382 PRINT"[159]PRINT LABEL: PRINT CASSETTE LABEL"
383 PRINT"[159]LOADSTAR: RETURN TO LOADSTAR"
384 PRINT"            [156]---- SAMPLE ----"
385 PRINT"TAPE # 1             TIME  START "
386 PRINT"1. JAWS              120   0000      "
387 PRINT"2. JAWS II           115   1235      "
388 PRINT"3. BEVERLY HILLS COP 98    2395      "
389 PRINT"4. 48 HOURS          111   3174      "
390 PRINT"5. SHORT CIRCUIT     123   4286      "
391 PRINT"6. SNOW WHITE        89    4922      "
392 PRINT"7. JUNGLE BOOK       105   5492      "
393 PRINT"[156]PRESS SPACE TO CONTINUE[146][145][145]"
394 GOSUB104
395 IFPEEK(203)<>60THEN395
396 IFIS=1THENIS=0:RETURN
397 H=0:GOTO177
398 :
399 PRINT"[145][156][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]"
400 GOTO 474
401 V$="1":V=1
402 OPEN15,8,15
403 PRINT#15,"R0:"V$"="V$:INPUT#15,ER
404 IFER<>63 THEN PRINTSPC(8)"THAT FILE IS EMPTY ("V$")":GOTO424
405 GOSUB148
406 OPEN8,8,8,"0:"+(V$)+",L,"+CHR$(LN)
407 GOSUB148
408 RN=1
409 REM RETURN HERE FOR 2-7
410 GOSUB331
411 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
412 GOSUB148
413 INPUT#8,AA$,BB$,CC$,DD$,EE$
414 GOSUB148
415 IFRN=1THENPRINT"[156][221]       TAPE NUMBER ";V$;" CONTAINS         [221][157][157]"
416 IFRN=1THENPRINT"[156][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
417 IFAA$="[255]"ANDRN=1THENPRINTSPC(8)"THAT FILE IS EMPTY ("V$")":GOTO424
418 IFAA$="[255]"THENRN=8:GOTO424
419 IFCC$=""THENCC$="     DELETED[152]"
420 IFRN=1THENPRINTSPC(5);"TITLE";SPC(17);"TIME";SPC(3);"START[152]"
421 PRINTAA$+". "TAB(3)CC$TAB(27)BB$TAB(34)DD$TAB(33)EE$
422 RN=RN+1
423 GOTO409
424 CLOSE8
425 PRINT"[156]ENTER +[156] FOR NEXT FILE OR -[156] FOR PREVIOUS"
426 PRINT"Q[156] TO QUIT"
427 GOSUB104
428 POKE198,0
429 GETCH$:IFCH$=""THEN429
430 IFCH$=CHR$(81)THENCLOSE8:CLOSE15:GOTO177
431 IFCH$<>CHR$(43)ANDCH$<>CHR$(45)THEN429
432 IFCH$=CHR$(43)THENV=V+1
433 IFCH$=CHR$(45)THENV=V-1
434 IFV=0THENCLOSE8:CLOSE15:GOTO446
435 IFV>=201THENCLOSE8:CLOSE15:GOTO446
436 V$=STR$(V)
437 IFV<=9THENV$=RIGHT$(V$,1)
438 IFV>=10ANDV<=99THENV$=RIGHT$(V$,2)
439 IFV>=100ANDV<=200THENV$=RIGHT$(V$,3)
440 PRINT""
441 FORZ=1TO14:PRINTSP$:NEXTZ
442 PRINTSP$;
443 PRINT""
444 CLOSE8:CLOSE15
445 GOTO402
446 GOTO177
447 :
448 POKE53280,.:POKE53281,.:POKE198,0:PRINTCHR$(142):PRINT"[147]"
449 K$="[158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":L$="":GOSUB107
450 K$="[158][221]                                  [221]":L$="":GOSUB107
451 K$="[158][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":L$="":GOSUB107
452 K$="[156][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":L$="":GOSUB107
453 K$="[156][221]            VCR LIBRARY           [221]":L$="":GOSUB107
454 K$="[156][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":L$="":GOSUB107
455 K$="[151][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":L$=L$+"":GOSUB107
456 K$="[151][221]                                  [221]":L$=L$+"":GOSUB107
457 K$="[151][221]                                  [221]":L$=L$+"":GOSUB107
458 K$="[151][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":L$=L$+"":GOSUB107
459 PRINT" [152][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
460 PRINT" [152][221]                                  [221]"
461 PRINT" [152][221]                                  [221]"
462 PRINT" [152][221]    [146]                              [221]"
463 PRINT" [152][221]    [146]                              [221]"
464 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
465 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
466 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
467 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
468 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
469 PRINT" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
470 PRINT" [152][221]    [146]                              [221]"
471 PRINT" [152][221]    [146]                              [221]"
472 PRINT" [152][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
473 RETURN
474 REM ADD ON FOR ALPHA MODULE
475 PRINT"[156][221]         VCR COMPANION  (Y/N)         [221][157][157]"
476 PRINT"[156][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
477 WAIT 198,15:GETQ$
478 IF Q$="N"THEN 401
479 IF Q$="Y"THEN 481
480 GOTO 477
481 REM GET ALPHA ROUTINE              ****
482 F$="VCR COMPANION":N$="VCR.LIST"
483 POKE 53280,3:POKE 53281,3:PRINT"[159]"
484 PRINT"[147]"TAB((40-LEN(N$)-10)/2)"[204]OADING "CHR$(34)N$CHR$(34)
485 PRINT"[159]NEW":PRINT"LOAD"CHR$(34)F$CHR$(34)",8,1"
486 PRINT"?C[200](144)C[200](142):RUN"
487 POKE198,3:POKE631,13:POKE632,13:POKE633,13